home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / UNZIP-DEMO / ZIPFILES / net00 / 00044.ls < prev    next >
Encoding:
Text File  |  1995-05-25  |  584 b   |  27 lines
  1. on scient
  2.   sound stop 1
  3.   sound playFile 1, "netsnd2"
  4.   repeat while soundBusy(1)
  5.     set the castNum of sprite 13 to 82
  6.     updateStage()
  7.     startTimer()
  8.     repeat while the timer < 10
  9.     end repeat
  10.     set the castNum of sprite 13 to 83
  11.     updateStage()
  12.     startTimer()
  13.     repeat while the timer < 10
  14.     end repeat
  15.     set the castNum of sprite 13 to 82
  16.     updateStage()
  17.     startTimer()
  18.     repeat while the timer < 10
  19.     end repeat
  20.     set the castNum of sprite 13 to 81
  21.     updateStage()
  22.     startTimer()
  23.     repeat while the timer < 10
  24.     end repeat
  25.   end repeat
  26. end
  27.